home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / pascal / mousetp.com / MOUSETP5.MSC < prev    next >
Encoding:
Text File  |  1989-12-04  |  4.6 KB  |  148 lines
  1. ;
  2. ;    Borland- Turbo PASCAL v.5.0 Pop-up Menu Configuration
  3. ;    Mosue Systems PC Mouse (3-Button)
  4. ;
  5. Comment     ("Configured for TurboPASCAL 5.0")
  6. Comment     ("Courtesy of T.Russell Gilroy")
  7.  
  8. ;
  9. ;    Parameters
  10. ;
  11. Sensitivity    (8, 10)     ; (Xinc, Yinc)
  12. Hysteresis    (1, 1)        ; (AutoX, AutoY)
  13. ReverseVideo    (Yes)        ; Menu is displayed in reverse video
  14. FixedMenu    (Yes)        ; Menu is floating (centered on cursor)
  15. MenuCenter    (76, 24)     ; Centers the cursor lower right corner
  16. EnableBeep    (No)        ; Allows menu switching rather than beep
  17. ExpertMode    (Yes)        ;
  18.  
  19. ;
  20. ;    Cursor Definitions
  21. ;
  22. ArrowKeys: Cursor
  23. (
  24.     Left   ([Left])
  25.     Right  ([Right])
  26.     Up     ([Up])
  27.     Down   ([Down])
  28. )
  29.  
  30. ;
  31. ;    Button Definitions
  32. ;
  33. LB:    Button    (Menu(Main))        ; Left button, Main Menu
  34. MB:    Button    (Menu(Block))        ; Left button, Block Menu
  35. RB:    Button    (Menu(Action))        ; Right button, Action Menu
  36. LBM:    Button    (Menu(Marker))        ; Left button, Marker Menu
  37. MBT:    Button    (Menu(Text))        ; Middle button, Text Menu
  38. LRB:    Button    (Keys([Enter]))        ; Left/Right Combination, ENTER
  39.  
  40. ;
  41. ;    Menu Definitions
  42. ;
  43. Main: Menu
  44. (
  45.     Title    ("MAIN MENU")
  46.     Item    ("   LOAD FILE     ",    Keys([F3]))
  47.     Item    ("MAKE             ",    Keys([F9]))
  48.     Item    ("COMPILE          ",    Keys([a-F9]))
  49.     Item    ("RUN              ",    Keys([C-F9]))
  50.     Item    ("Break/Watch      ",    Keys([F10]B))
  51.     Item    ("Options Menu     ",    Keys([F10]O))
  52.     Item    ("(file options)   ",    Keys([F10]F))
  53.     Item    ("(run options)    ",    Keys([F10]R))
  54.     Item    ("(compile options)",    Keys([F10]C))
  55.     Item    ("(debug options)  ",    Keys([F10]D))
  56.     Item    ("** SAVE FILE **  ",    Keys([F2]))
  57.     Item    ("    H E L P      ",    Keys([F1]))
  58.     Item    ("Review Last Help ",    Keys([a-F1]))
  59.     Item    ("<<< Q U I T >>>  ",    Keys([a-X]))
  60.     Item    (""),
  61.     Item    (">> MARKER MENU <<",    Menu(MARKER), Button(LBM))
  62. )
  63.  
  64. Marker: Menu
  65. (
  66.     Title    ("MARKER MENU")
  67.     Item    ("Set Marker 0     ",    Keys([c-K]0))
  68.     Item    ("Set Marker 1     ",    Keys([c-K]1))
  69.     Item    ("Set Marker 2     ",    Keys([c-K]2))
  70.     Item    ("Set Marker 3     ",    Keys([c-K]3))
  71.     Item    ("Move to Marker 0 ",    Keys([c-Q]0))
  72.     Item    ("Move to Marker 1 ",    Keys([c-Q]1))
  73.     Item    ("Move to Marker 2 ",    Keys([c-Q]2))
  74.     Item    ("Move to Marker 3 ",    Keys([c-Q]3))
  75.     Item    (""),
  76.     Item    (">> MAIN   MENU <<",    Menu(Main), Button(LB))
  77. )
  78.  
  79. Block: Menu
  80. (
  81.     Title    ("BLOCK MOVE MENU")
  82.     Item    ("Set Block Begin  ",    Keys([c-K][c-B]))
  83.     Item    ("Set Block End    ",    Keys([c-K][c-K]))
  84.     Item    ("Hide Block       ",    Keys([c-K][c-H]))
  85.     Item    ("Mark Word        ",    Keys([c-K][c-T]))
  86.     Item    ("Copy Block       ",    Keys([c-K][c-C]))
  87.     Item    ("Move Block       ",    Keys([c-K][c-V]))
  88.     Item    ("Delete Block     ",    Keys([c-K][c-Y]))
  89.     Item    ("Read Block       ",    Keys([c-K][c-R]))
  90.     Item    ("Write Block      ",    Keys([c-K][c-W]))
  91.     Item    ("Move to Block End",    Keys([c-Q][c-K]))
  92.     Item    ("Move to Block Beg",    Keys([c-Q][c-B]))
  93.     Item    ("Move to Prev. Pos",    Keys([c-Q][c-P]))
  94.     Item    ("Block indent     ",    Keys([c-K][c-I]))
  95.     Item    ("Block Unindent   ",    Keys([c-K][c-U]))
  96.     Item    (""),
  97.     Item    (">> TEXT   MENU <<",    Menu(Text), Button(MBT))
  98. )
  99.  
  100. Text: Menu
  101. (
  102.     Title    ("TEXT MENU")
  103.     Item    ("Tab              ",    Keys([c-I]))
  104.     Item    ("Toggle Tabs      ",    Keys([c-O][c-T]))
  105.     Item    ("Toggle Autoindent",    Keys([c-O][c-I]))
  106.     Item    ("Toggle Unindent  ",    Keys([c-O][c-U]))
  107.     Item    ("Toggle Optimal Fill",  Keys([c-O][c-F]))
  108.     Item    ("Insert Options   ",    Keys([c-O][c-O]))
  109.     Item    ("Match Pair       ",    Keys([c-Q][c-[]))
  110.     Item    ("Match Pair Backwd",    Keys([c-Q][c-]]))
  111.     Item    (""),
  112.     Item    (">> BLOCK  MENU <<",    Menu(Block), Button(MB))
  113. )
  114.  
  115. Action: Menu
  116. (
  117.     Title    ("ACTION MENU")
  118.     Item    ("Insert Line      ",    Keys([c-N]))
  119.     Item    ("Delete Line      ",    Keys([c-Y]))
  120.     Item    ("Delete EOL       ",    Keys([c-Q][c-Y]))
  121.     Item    ("Delete Word      ",    Keys([c-T]))
  122.     Item    ("Delete Char.     ",    Keys([c-G]))
  123.     Item    ("Restore Line     ",    Keys([c-Q][c-L]))
  124.     Item    ("Find String      ",    Keys([c-Q][c-F]))
  125.     Item    ("Find and Replace ",    Keys([c-Q][c-A]))
  126.     Item    ("Search Again     ",    Keys([c-L]))
  127.     Item    ("Insert Ctrl Char.",    Keys([c-P]))
  128.     Item    ("Left of Line     ",    Keys([c-Q][c-S]))
  129.     Item    ("Right of Line    ",    Keys([c-Q][c-D]))
  130.     Item    ("Top of Screen    ",    Keys([c-Q][c-E]))
  131.     Item    ("Bottom of Screen ",    Keys([c-Q][c-X]))
  132.     Item    ("Top of File      ",    Keys([c-Q][c-R]))
  133.     Item    ("Bottom of File   ",    Keys([c-Q][c-C]))
  134.     Item    ("Move to Error Pos",    Keys([c-Q][c-W]))
  135. )
  136.  
  137. ;
  138. ;    Mouse Definition
  139. ;
  140. Mouse
  141. (
  142.     Left    (LB)            ; Left Button: Main Menu
  143.     Middle    (MB)            ; Middle Button: Block Menu
  144.     Right    (RB)            ; Right Button: Action Menu
  145.     LeftRight (LRB)            ; Enter
  146.     Cursor    (ArrowKeys)
  147. )
  148.